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Fl Te: SRCS:EDFVALUE.PAS = Pascal include file to define 
tial values of selected top-level variables. 
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FACILITY: VAX/VMS EDF (EDIT/FDL) UTILITY 


ABSTRACT: This facility is used to create, modify, and optimize 
FDL specification files. 


ENVIRONMENT: NATIVE/USER MODE 
AUTHOR: Ken F. Henderson Jr. 
CREATION DATE: 27-Mar-1981 


MODIFIED BY: 
v03-009 KFHOOO9 Ken Henderson 10 Sep 1983 
Support named UICs. 
v03-008 KFHOO08 Ken Henderson 9 Aug 1983 


Fix max value of CLUSTER_SIZE. 
Fix default of QTABLTEST “PRIMARY. 


v03-007 eg 14 Ken Henderson 30 Jul 1983 
Fix SEC_TYPE table for audit_trail. 
add DEFERRED_WRITE. 
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v03-006 KFHOO06 en Henderson 26 Apr 1983 
Fix various Gotan ts in Q 
Transferred some isl ete teations to 
the EDFVAR declarations. 


v03-005 KFHOO00S Ken gf. 
Changed max bucketsi to 6 Se : 65. 
pete ANALYSIS, aha He RESPONS 
PROMPTING, SET FUNCTION, GRANULARITY. 
Added support ior SEGMENTED keys. 


v03-004 KFHOO04 Ken Rendereen 
Changed max bucketsize to 65 from 127. 


v03-003 KFHOOO3 Ken Henderson 11 Sept 1982 
Added initialization of VDATA and BDATA. 


v03-002 KFHO002 Ken Henderson 9 Sept 1982 
Added initialization of QTAB. 


v03-001 KFHOO01 Ken Henderson 23-Mar-1982 
Took out reference to EDITFDL_STRING 


14 Apr 1983 


7 Mar 1983 
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{ + 
Initialize the Boolean-array to all false. 


BDATA 
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{ + 
Initialize the String-array to all null-string. 


SDATA := ( 


SCSK_DTYPE_ 
Ss YPE 


(0,D 
(0:D 
(0:0 
(0;DSC$K~ 
(0-;DSCSK-DTYPE 
(0;DSCSK~DTYPE~ 
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{ + 
Initialize the Valid-array to all false. 


VDATA := ( 
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ED 
); (B 

{ 
{+ (8 
Initialize the sequencing array. ts 
PRI_SEQ := ( | t 
15, { DUMMY_PRIMARYS } ¢ 
8, ACCESS, } Qu 
4 ACL, | AN 

18, ANALYSIS_OF_AREA, } | - 

14; ANALYSIS~OF “KEY, } | ¢ 

11, AREA, } | (1 

10; CONNECT, } { 

4, DATE, } (1 

3, FILES, } { 

* f IDENT, Cl 

6 JOURNAL, } { 

12, { KEY, } | (I 

7, { RECORDS, } | ¢ 
9, { SHARING, } (K 

2. { SYSTEM { 
0 { TITLE $ (K 

); | { 

C1 

{ + { 
Initialize the ‘width’ arrays - that indicate how long a particular Qu 
keyword should be printed. AN 
PRIMARY _WIDTH := ( | { 
0, { DUMMY_PRIMARYS } | «K 

6, { ACCESS, } | (K 

3 { ACL, | ¢ 

16, { ANALYSIS_OF_AREA, } (1 

15, { ANALYSIS_OF"KEY, } { 

4, { AREA, } (1 

2 ¢ CONNECT, } { 

4, DATE, } (I 

- { FILE$, > { 

* { IDENT, } | Qu 

- { JOURNAL, } | AN 

3, KEY, } > 

$. f RECORDS, } | { 

. SHARING, (I 

6. { SYSTEM { 

5 { TITLE $ | (K 

); t, 

SECONDARY_WIDTH := ( | § 
{ RESERVE 0 } 0, { DUMMY_SECONDARYS, } t 
{ ACCESS PRIMARY } 3 
8, { BLOCK_10$ } t 


EDF VALUE .PAS;1 16-SEP-1984 17:10:24.78 Page 6 Et 
° DELETES >} ] 
° GET 
° PUTS | 
. RECORD_10$ } 
" TRUNCATES } 
6, UPDATES } 


2=c,.,.hUl 


{ ACL PRIMARY } 
{ ANALYSIS_OF_AREA PRIMARY 3 


{ RECLAIMED_SPACE } 
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{ ANALYSIS_OF_KEY PRIMARY } | 1 
9 DATA_FIL 1 
36. DATA “Key LS SmPRESSI 

; BATA “RECORD COMPRESSION, ) 1 
17. DATA-RECORD~ COUNT | 
19, DATAS SPACE -ccuPiED, > I 
9, TIONS, 
5 { DEB | u 
19, { BERTH. De. PER_SIDR, } AN 
17. { INDEX_COMPRESSTON, $ - 
10, { INDEXFILLS$, ; { 
20, { INDEX"SPACE OCCUPIED, } (1 
19, { LEVELT_RECORD COUNT $ { 
16, { MEAN_DATA_LENGTH, } | (I 
17, { MEAN-INDER_ LENGTH, } { 
15. { RANDOM _ACCESS is (k 
14: { RANDOM"INSERTS, > { 
19; { SEQUENTIAL “ACCESSES, } « 

{ AREA PRIMARY } cr 
10, { ALLOCATIONS, } | (k 
19. BEST TRY_CONTIGUOUSS, } | { 
11, BUCKET STiES. } | (kK 
10, CONTIGOOUS$, > - { 
17. ¢ EXACT POSITIONINGS, } | (1 
9, EXTENSIONS. { 
8; { POSITIONS ,” | (I 
6. { VOLUMES, $ a 

{ CONNECT PRIMARY } | C 
12, ASYNCHRONOUS } AN 
x LOCK_10 } - 
if, BUCKET CODE } { 
7? CONTEXT } (k 
1, END OF FILE } { 
12, FILC_BOCKETS } (Cc 
11. FAST DELETE { 
1g. KEY_OF_REFERENC (¢ 
17, KEY-GREATER_EQUAL } 
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{ JOURNALING PRIMARY 
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{ KEY PRIMARY } 


ATA “fd Meloash ESSION, } 
ATATRECORD. COMPRESSION, } 


INDEX } 
LEVELT. NDEX “AREA, } 


Key se 
NOLL V LUE, } 
PROLOG CUED - 1ST 6 CHARS ONLY } 


SEG_LENGT 
SEG “POSITION. } 
SEG TYPE, 
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{ RECORD PRIMARY } 
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{ SHARING PRIMARY } 


g. DELETE >} 
T >} 
if, MULTISTREAM } 
g. PROHIBIT } 
‘ UPDATE } 
14, USER_INTERLOCK } 


{ SYSTEM PRIMARY } 


{ DEVICE, } 
{ SOURCE, > 
{ TARGET, } 


{ + 
meee are the maximum values of number-valued secondaries. 


SECONDARY_MAX := ( 
{ RESERVE 0 } 0, { DUMMY_SECONDARYS, } 
{ ACCESS PRIMARY } 


0, { BLOCK_10$ > 
0, { DELETES } 
0, t GETS ; 
QO, PUTS 
0, ¢ RECORD_10$ } 
0, TRUNCATES } 
0, { UPDATES } 

{ ACL PRIMARY } 
0, { ENTRY } 


{ ANALYSIS_OF AREA 2 vaanatd } 


{ ANALYSIS_OF_KEY PRIMARY } 
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{ FILE PRIMARY } 
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. BEFORE _NAME } 01 
. f REC OVERY UNIT, } gt 
{ KEY PRIMARY } | o} 
CHANGES, } 01; 
284, DATA AREA, 01; 
100; DATA FILL 01, 
99, ATA-KEY_COMPRESSI | 01; 
99: BAR S COMPRESS TON, } 61: 
286, INDEX CAREX | 01; 
9 INDEX ~COMPRESSION, } 
106, INDEXFILL | 
24, LEVELT _INDEX. AREA, } 
. NAMES, 
{ NULL_KEY 
§s, { NULL“VALUE, } 
{ PROLOGUE 
2§5 { SEG_LENGT 
16299, { SEG-POSITION, } 
0, { SEG"TYPE, | 
{ RECORD PRIMARY } | 
0, { BLOCK_S 
0 { CARRIRGE Ae oT ROL 
255, { CONTROL FIELD Rotte. } 
0, { FORMA 
EDFSK_MAXRECSIZ, SIZE, "9? 
{ SHARING PRIMARY } | 
0, { DELETE > 
0. { GET } 
0; { MULTISTREAM } 
0. { PROHIBIT } 
6 { PUT } | 
0. { UPDATE } | 
0, { USER_INTERLOCK } | 
| 


SOURCE, 
TARGET, 


ooo 
es 
Aan 


DEVICE, 


{ + 
ome y are the secondary value types. 


SEC_TYPE := ( 
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KEY: 
-} 


{ RESERVE 0 } 
{€ ACCESS PRIMARY } 


{ ACL PRIMARY } 


STR, NUM, QUAL, SW 


(FALSE ,FALSE,FALSE,FALSE), 


(TRUE ,FALSE,FALSE,FALSE), 


{ ANALYSIS_OF_AREA PRIMARY } 


(FALSE ,FALSE,FALSE,FALSE), 


{ ANALYSIS_OF_KEY PRIMARY } 


{ AREA PRIMARY } 


(FALSE FALSE, FALSE,FALSE), 
(FALSE .FALSE FALSE FALSE) ; 
(FALSE .FALSE FALSE FALSE), 
(FALSE .FALSE .FALSE FALSE) . 
(FALSE .FALSE .FALSE FALSE), 
(FALSE .FALSE .FALSE FALSE) , 
(FALSE .FALSE FALSE FALSE), 
(FALSE .FALSE FALSE FALSE) . 
(FALSE .FALSE,FALSE.FALSE), 
(FALSE .FALSE FALSE FALSE). 
(FALSE .FALSEFALSE.FALSE), 
(FALSE .FALSE FALSE, FALSE) . 
(FALSE .FALSE.FALSE.FALSE), 
(FALSE .FALSE.FALSE.FALSE), 
(FALSE .FALSE,FALSE.FALSE), 
(FALSE .FALSE,.FALSE.FALSE), 
(FALSE .FALSE.FALSE,FALSE), 
(FALSE, TRUE, FALSE FALSE), 
(FALS SE FALSE, TRUE) 
(FALSE, FALSE EACSED. ; 
(FALSE. FALSE, FALSE, TRUE). 
(FALSE .FALSE ,FALSE, TRUE). 
(FALSE, TRUE FALSE, FALSE). 
(FALSE FALSE ,FALSE,FALSES, 
(FALSE: TRUE FALSE, eases.” 


STR, NUM, QUAL, SW 
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DUMMY _SECONDARYS, } 


$} 


ENTRY } 
RECLAIMED _SPACE } 


DATA_F 
DATA “KEY LS omPRES 
DATA-RECORD_ COMPRESS ON, } 
DATA-RECORD~C } 
DATA~SPACE ~gecuPié, > 
DELETIONS, > 


} 
DUPLICATES PER_SIDR, } 
INDEX COMPRESSION, $ 
INDEX “FILLS, 
INDEX"SPACE OCCUPIED, } 
LEVELT RECORD COUNT $ 
MEAN_DATA CENGTN } 


RANDOM” I 
SEQUENTIAL ERCCESSES, } 


ALLOCATIONS, } 

BEST TRY CONTIGUOUSS, } 
BUCKET SIZE 

BON TG0ou gs "5 

EXACT POSITIONINGS. ) 
EXTENSIONS, } 

POSITIONS 

VOLUMES, $ 
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{ CONNECT PRIMARY } 
{ DATE PRIMARY } 
{ FILE PRIMARY } 
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{ RECORD PRIMARY } 


{ SHARING PRIMARY } 
{ SYSTEM PRIMARY } 
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EDF VALUE .PAS;1 


QTAB := ( 


{ + 
QUESTION _OFFSET 
ANSWER_CCASS, 


OBAL_WANTED } 
ANSWER, 


FFSET 
SS, 


aos 
" 

— 

ze Mm 
‘52 3 
a g 
>OoO 


WER 
Y_puPs > 


DEFAULT_OK, 


TRUE, 


-} 

{ EDFSK_DATA_FILE_NAME } 
(STRING_ANSWER TRUE, 
{ EOFSK-FDL TITLE > 
(STRING_ANSGER, TRUE, 
{ EDFSK“KEY_ NAME 
(STRING_ANSGER TRUE, 
{ EDFSK-ANALYSIS 
(STRING_ANSWER, TRUE, 
{ EDFSK-OUTPUT > 
(STRING_ANSWER TRUE, 
{ EDFSK-DATA_KEY_COMP } 
(REAL_ANSWER; TRUE, 
{ EDFSK_DATA_RECORD_COMP } 
(REAL_ANSWER; UE, 
{ EDFSK_INDEX_RECORD_COMP } 
EREAL AMSWER, TRUE, 
QUESTION OFFSET 

ANSWER_CCASS, DEFAULT_OK, 
{ EDFSK_KEY_COMP_WANTED } 
(BOOLEAN _ANSW TRUE, 
{ EDFSK_REC_COMP_WANTED } 
(BOOLEAN_ANSWER TRUE, 
{ EDFSK_IDX_COMP_WANTED } 
(BOOLEAN_ANSWER, TRUE, 
{ EDFSK_ASCENDING_ADDED } 
(BOOLEAN_ANSWER, ‘ 
{ EOFSK_ASCENDING_LOAD } 
(BOOLEAN R TRUE, 
{ EDFSK_ BLOCK SPAN } 

(BOOLEAN _ANSWER, TRUE, 
{ EDFSK_CONFIRM } 
(BOOLEAR_ANSWER TRUE, 
{ EDF Sk SEGMENTED } 
(BOOLEAR_ANSWE TRUE, 
{ EDF SK GL 

{ 

Q 


DEFAULT_OK, 


TRUE, 
TRUE, 


? 
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DEFAULT, 


0, 
0, 
0, 
0, 
0, 
0, 


DEFAULT, 


EDFSK_YES, 
EDF SK_YES, 
EDFSK_YES, 
EDF $K_NO, 
EDF $K_NO, 
EDFSK_YES, 
EDF $K_NO, 
EDF SK_NO, 
EDF $K_NO, 


DEFAULT, 


EDFSK_YES, 
EDF $K_NO, 


{ + 
Me is the QTAB array, which controls the asking and processing of questions. 


LOW_BOUND, HIGH_BOUND, 
0, 0, 

0, 0, 

0, 0, 

0, 0, 

0, 0, 

-99, 99, 

-99, 99, 

-99, 99, 
LOW_BOUND, HIGH_BOUND, 
0, 0, 

0, 0, 

0, 0, 

0, 0, 

0, 0, 

0, 0, 

0, 0, 

0, 0, 

0, 0, 
LOW_BOUND, HIGH_BOUND, 
0, 0, 

0, 0, 


KEY_TABLE, 


7 


ons ff & & 2 BS & 
. 


KEY_TABLE, 


~ 


7 >. — 


oo oocoqeoose (|o& 
a 


KEY_TABLE, 


STATE_TABLE 


0), 
0), 
0), 
0), 
0), 
0), 
0), 
0), 


STATE_TABLE 


0), 
0), 
0), 
0), 
0), 
0), 
0). 
0), 
0), 


STATE_TABLE 


0). 
0), 


ea 
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EDF VALUE .PAS; 1 

(BOOLEAN ANSWER TRUE, EDFSK_NO, 
CeDF re RETUR - 

{ EDF R CLUSTER. SIZE } 

CINTEGER_ANSWER> TRUE, 3, 

{ EDFSK ACT Ive KEY } 

PINTEGER ANS SUER. TRUE, 0, 

+ 

QUESTION OFFSET 

ANSWER._CCASS. DEFAULT_OK, DEFAULT, 
{ EDFSK ghDDED COUNT } 

CINTEGER_ANSWER TRUE, 0, 

{ EDF SK $e RDDED COUNT_LOW } 

CINTEGER_ANSWER TRUE, 0. 

{ EDFSK_ADDED COUNT_HIGH } 

CINTEGER_ANSWER TRUE, 100000, 

{ EDFS$K BLOCKS IN_BUCKET } 

CINTEGER_AN TRUE, 32, 

{ EDF SK BUCKET WEIGHT } 

(KEYWORD_ANS TRUE, EDFSK_FLATTER_FILES, 
{ EDFSK CARR CTRL >} 

(KEYWORB_ANSGER, TRUE, FDLSC_CR, 
{ EDF$K_CONTROL.SIZE } 

tINTEGER, ANSWER; TRUE, Be 

QUEST ION OFFSET 
ANSWER. _CCASS DEFAULT_OK, DEFAULT, 
{ EDF Sk CURRENT _FUNCTION } 

(KEYWOR SWER| RUE, EDFSK_HELP, 
{ EDF SK BE SiON évcLe > 

(KEYWORD ANSWER, TRUE, EDFSK_wP, 
{ EDFSK DESIRED FILL } 

CINTEGER_ANSWER| TRUE, 100, 

{ EDFSK_FILL LOW > 

CINTEGER_ANSOER, TRUE, 50, 

{ EDFSK Fite HIGH } 

PINTEGER. ANSGER, TRUE, 100, 
QUESTION OFFSET 

ANSWER, R_CCASS, DEFAULT_OK, DEFAULT, 

{ EDFSK_GLOBAL_COUNT } 

CINTEGER_ANSWER FALSE, 0. 

{ EDF SK GRANULARITY } 

(KEYWORD_ANSWER, TRUE, EDFSK_THREE, 
{ EDFSK_INITIAL_COUNT } 

CINTEGER_ANSWER; FALSE, 0. 

{ EDFSK INITIAL. COUNT tN 

CINTEGER_ANSWER; RUE. 0, 

{ EDFSK INITIAL. COUNT HIGH 

CINTEGER_ANSWER, ‘ 100000, 

{ EDF$K_REY POSITION } 

CINTEGER erty TRUE, 0, 

{ EDFSK_REY 


7 
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0, 
0, 


EDFS$C_1GIGA, 


0, 


HIGH_BOUND, 


EDFSC_1GIGA, 
EDFSC_1GIGA, 
EDFS$C_1GIGA, 


oo Oo O&O 
. 


KEY_TABLE, 


0, 


0, 


BKTSC_MAXBKTSIZ, 0, 


0, 
0, 
255, 


HIGH_BOUND, 


0, 
0, 
100, 
100, 
100, 


HIGH_BOUND, 


65535, 
0, 


EDFSC_1GIGA, 
EDFSC_1GIGA, 
EDFSC_1GIGA, 
EDF SK_MAXRECSIZ, 


. 
. 


KEY_TABLE, 


0), 
0), 
0), 
0), 


STATE_TABLE 


0), 
0), 
0), 
0), 
0), 
0), 
0), 


STATE_TABLE 


0), 
0), 
0), 
0), 
0), 


STATE_TABLE 


0), 
0), 
0), 
0), 
0), 
0), 


wht abt ahs od Pam am I 


a oft off oft obi oh edi oft edt od edi ode obi ode odd odd odd odd odd ode odd edd odd od odd odd odd ot odd odd odd edi 258 odd odd 


E 
V 
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0 
0 
3 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
04 
04 
04 
0 
04 
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CINTEGER_ANSWER, TRUE, ‘. 

{ EDFSK_REY_HIGH } 

CINTEGER ANSWER TRUE, 255, 

{ EDFSK_REY siz ) 

CINTEGE GER_ INSU FALSE, 0, 
QUESTION OFFSET 

on R_CCAS DEFAULT_OK, DEFAULT, 

{ EDFSK_KEY_TYPE } 

(KEYWORD ANSWER TRUE, FDLSC_STG, 
{ EDF $x COAD Ae fHoD > 

(KEYWORD ANS@ER TRUE, EDFSK_FAST_CONVERT, 
{ EDFSK_MAX_RECORD_SIZE } 

CINTEGER_ANSWER FALSE, 0, 

{ EDFSK_MEAN_RECORD_SIZE } 

CINTEGER_ANSQER SE, 0, 

{ EDFSK_RUMBER bu 

CINTEGER ANSWER, TRUE, 0, 

{ EDF SK RUMBER  K KEYS >} 

CINTEGER_ANS WER, TRUE, . 
QUESTION_OFFSET 

MEIER R_CCASS, DEFAULT_OK, DEFAULT, 

{ EDFSK NUMBER RECORDS } 

CINTEGER_AN FALSE, 0, 

{ EDFSK Sk PROLOGUE VERSION } 

CINTEGER_AN TRUE, 3, 

{ EDF SK PRON ING > 

(KEYWORD _ANSWER TRUE, EDFSK_FULL, 
{ EDF SK SK RECORD FORMAT } 

(KEYWORD_AN TRUE, FDLSC_VAR, 
{ EDF SK Renae > 

(KEYWORD_ANSWER TRUE, EDF $K_AUTO, 
{ EDFS$K_SCRIPT OPTION } 

(KEY SWER FALSE, 0. 

{ EDF$K_SET FUNCTION } 

(KEY ANSWER, FALSE, 0, 

{ EDF$K_SIZE LOW } 

CINTEGER_ANSQER TRUE, 1, 

{ EDFSK aSize HIGH } 

(INTEGER _ANSQER, TRUE, 1000, 

{ EDFSK pSUREACE- “OPTION } 

CKEYWOR C_ANSWER’ TRUE, EDFSK_LINE_SURFACE, 
QUESTION OFFSET 

ANSWER. CASS, DEFAULT_OK, DEFAULT, 

{ EDFSK_TEST_ PRIMARY } 

(KE YWORD_AN TRUE, FDLSC_FILE, 

{ EDFS$K_TEST SECONDARY } 

(OBJECT ANSWER FALSE 0, 

{ EDFSK-TEST SECONDARY_ VALUE 5 

(OBJECTANSWER, ALSE, 0. 


0, 0, 

° 0, 
0, 0, 
LOW_BOUND, HIGH_BOUND, 

0, 0, 

0, 0, 
0, 0, 
ts EDF SK_MAXRECSIZ, 
0, EDFSC_1GIGA, 
1, 255, 
LOW_BOUND HIGH_BOUND, 
0, EDFSC_1GIGA, 
0, 3, 
0, 0, 
0, 0, 
0, 0, 
0, 0, 
0, 0, 
1, EDF SK_MAXRECSIZ, 
1, EDF SK_MAXRECSIZ, 
0, 0, 
LOW_BOUND, HIGH_BOUND, 


0, 
KEY_TABLE, 


0, 


KEY_TABLE, 


0, 
0, 


STATE_TABLE 


0), 
0), 
0), 
0), 
0), 
0), 


STATE_TABLE 


0), 
0), 
0), 
0), 
0), 
0), 
0), 
0), 
0), 
0), 


STATE_TABLE 


0), 
0), 
0) 


ee 


EDF VALUE .PAS; 1 


$K_DTYPE_T, 
S$K_CLASS_D, 
; 

LINE _OBJECT_TEMPLATE := ( 

SEC, 

NIL, 

NIL, 

( 


0 
DSC$K_DTYPE_T, 
DSCSK-CLASS_D. 
NIL 


( 


0 
DSC$K_DTYPE_T, 
DSCSK-CLASS—D. 
NIL 


KEY, 
DUMMY _SECONDARYS, 


Se De De Be ee ee ee i ee ee ee i ee Be 
>>>>>>>> 
Per 


>>>>>r>r> 
Preece ec. 


DSCSW_LENGTH 
DSCSB-DIYPE > 
DSC$B-CLASS 
DSCSA“POINTER } 


$ LINE_OBJECT_TYPE } 
FORE > 

{ BACK } 

{ COMMENT } 


{ STRING } 


{ PROT_MASK } 


EEE eel 


222 =7 


r 
0é 
04 
, 
04 
? 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
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{ End of File SRCS:EDFVALUE.PAS } 
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